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SECTION  1.  INTRODUCTION 

1.1  Pjrpose  of  the  VALIDATION  Suiury  Report 

The  purpose  of  the  Validation  Summary  Report  (VSK)  is  to  identify  individual 
COBOL  language  elements  whose  implementation  does  not  conform  to  federal 
Standard  COBOL  as  adopted  from  American  National  Standard  “rograrminj  Languaoe 
COBOL'  X3. 23-1974*  by  federal  Information  Processing  Standard  71-1  (fIpS 
PUB  21-1). 

1.2  Preparation  of  the  VSR 

The  Validation  Summary  Report  is  prepared  by  analyzing  the  results  of  running 
the  C0901  Compiler  Validation  System  (CCVS).  The  COBOL  Compiler  Validation 
System  consists  of  audit  routines  containina  features  of  federal  Standard  COBOL 
their  related  data*  and  an  executive  routine  (V3- rou t i ne ) which  prepares  the 
audit  routines  for  compilation.  Each  audit  routine  is  a COBOL  program  which 
includes  many  tests  and  supporting  procedures  indicating  the  result  of  the 
tests. 

The  testing  of  a compiler  in  a particular  ha r dw ar e /o oe r a t i ng  system  environment 
is  accomplished  by  comoiling  and  executing  each  audit  routine.  The  report  pro- 
duced by  each  routine  tells  whether  the  compiler  passed  or  failed  the  tests  in 
the  routine.  If  the  compiler  rejects  some  language  elements  by  terminatino 
compilation*  giving  fatal  diagnostic  messages*  or  terminating  execution 
abnormally*  then  the  test  containing  the  code  the  compiler  was  unable  to 
process  is  deleted  and  the  audit  routine  compilation  and  execution  repeated. 

The  compilation  listings  and  the  output  reports  of  the  ajdit  routines  con- 
stitute the  raw  data  from  which  the  members  of  the  Federal  C030L  Compiler 
Testing  Service  produce  a Validation  Sjmmary  Reoort. 

1.3  Organization  of  the  VSR 

The  Validation  Summary  Report  is  made  up  of  several  sections  the  contents  of 
which  are  described  below. 

a.  Section  2 summar izes. the  results  of  the  compilation  and  execution 
of  the  programs  comprising  the  COBOL  Comp  i l er  ' Va l i da t i on  System.  Section  2 

is  subdivided  intone  subsection  representing  each  level  of  each  module  defined 
in  American  National  Standard  Programming  Language  COBOL*  X3. 23-1974.  Each 
subsection  contains  a list  of  all  of'thei  language  elements  which  must  be 
implemented  in  order  to  claim  support  of  that  l eve l /modu le . The  list  of  lan- 
guage elements  will  be  annotated  to  include  a description  of  both  syntax  and 
semantic  errors  detected  during  the  validation. 

b.  Section  3 - FIPS  PU3  21  defines  four  Federal  levels  of  the  COBOL 
Standard.  Section  3 of  the  VSR  lists  the  discrepancies  described  in  Section  2 
by  the  Federal  level  in  which  theproblem  occurs. 


3 


CCVS74-VSR160 


c.  Section  A contains  information  which  described  the  software  environ- 
ment in  which  the  compiler  was  tested.  This  includes  the  name  ancf  version  of 
the  operating  system;  the  implementor-names  which  were  used  in  the  Environment 
division  of  the  programs  comprising  the  CCVS;  the  options  used  with  the  com- 
piler; and  if  applicable/  information  regarding  the  use  of  compiler  optimiya- 
tion  features. 

d.  Appendix  A is  the  Validation  Summary  Marking  Document/  a working 
paper  resulting  from  the  compilation  and  ;e xe c u t i on  of  the  CCVS / and  from  which 
the  VSR  is  derived. 

1.A  Abstract  Covering  Compliance  to  American  Notional  Standard  Programming 

Language  COBOL 

Definition  of  an  I m? I e men t a t i on  of  American  National  standard  Programming 
Language  COBOL  (excerpts  from  X3. 23-1974/  Chapter  1/  Section  1.5). 

An  implementation  is  defined  to  meet  the  requirements  of  the  American 
National  Standard  COBOL  specification  if  that  implementation  includes  a 
fully  implemented  specified  level  of  each  of  the  functional  processing 
modules  and  of  the  nucleus  as  defined  in  this  standard.'  It  followsfrom 
this  that  / in  order  to  meet  the  requirements  of  this  standard/  an  imple- 
mentation must: 

a.  Not  reqjire  the  inclusion  o f - sub s t i t ut ? or  additional  lennuane  ele- 
ments in  the  source  proqram/  in  order  to  accomplish  any  part  of  the  function 
of  any  of  the  standard  language  elements. 

b.  Accept  all  standard  language  elements  contained  in  a given  level 
of  a module  which  is  specified  as  being  included  in  the  implementation/ 
except  as  specifically  exempted  as  pertainino  to  specific  hardware  components 
for  which  support  is  claimed. 

These  points  are  of  particular  pertinence  in  two  areas: 

(1)  There  are  throughout  the  American  National  Standard  COBOL 
s pec i f i cat  ion  certain  language  elements  whose  syntax/  or  semantics  are 
specified  to  be/  in  part / i mp  lement or -def ined.  While  the  implementor  specifies 
the  constraints  on  that  portion  of  each  element's  syntax  or  rules  that  is  indi- 
cated in  this  standard  to  be1*  imol ement or-de f i ne d/  such  constraints  may  not 
include  a.ny  requirement  for  the  inclusion  in  the  source  proqram  of  sub- 
stitute or  additional  language  elements. 

(2)  When  a function  is  provided  outside  the  source  prooram  that 
accomplishes  a function  specified  by  any  particular  standard  COBOL  element/ 
then  the  implementation  must  not  require/  except  for  Environment  Division 
elements/  the  specification  of  that  external  function  in  place  of  or  in 
addition  to  that  standard  language  element: 

The  following  qualifications  apply  to  the  American  National  Standard  COBOL 
specification: 
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a.  There  are  certain  lartguaqe  elements  which  pertain  to  specific  types 
of  hardware  components.  In  order  for  an  implementation  to  meet  the  require- 
lents  of  this  standard*  the  implementor  must  specify  the  minimum  hardware 
configuration  required  for  that  implementation  and  the  hardware  components 
that  it  supports.  further*  when  support  is  thus  claimed  for  a specific  hard- 
ware component*  all  standard  language  elements  that  certain  to  that  component 
must  be  implemented  if  the  module  in  which  they  appear  is  included  in  the 
implementation.  Language  elements  that  pertain  to  specific  hardware  com- 
ponents for  which  support  is  not  claimed*  need  not  be  implemented.  However* 
the  absence  of  such  elements  from  an  implementation  of  American  National 
Standard  COBOL  mjst  b»  specified. 

b.  An  implementation  of  American  National  Standard  CD3DL  may  include 
the  INTER  statement  or  not*  at  the  option  of  the  irolementor. 

c.  An  implementation  that  includes*  in  addition  to  a specified  level  of 
each  of  the  functional  processing  modules  and  of  the  Njcleus*  elements  or 
functions  that  either  are  not  defined  in  the  American  National  Standard  COBOL 
specification  or  are  defined  in  a given  level  of  a standard  module  not  other-' 
wise  included  in  the  implementation*  meets  the  requirements  of  this  standard- 
This  is  true  even  though  it  may  imply  the  extension  of  the  list  of  reserved 
words  by  the  implementor*  and  prevent  proper  compilation  of  some  programs  that 
• eet  the  requirements  of  this  standard.  The  implementor  must  specify  any 
optional  language  (language  not  defined  in  a so?cif-ied  level  but  defined  else- 
where in  the  standard)  or  extensions  (language  elements  or  functions  not 
defined  in  this  standard)  th3t  are  included'in  the  implementation. 

d.  In  aeneral*  the  American  National  Standard  COBOL  specification 
specifies  no  upper  limit  on  such  things  as  the  number  of  statements  in  a pro- 
gram* the  number  of  operands  permitted  in  certain  statements*  etc.  It  is 
recognized  that  these  limits  will  vary  from  one  implementation  of  American 
National  Standard  COBOL  to  another  and  may  prevent  the  proper  compilation  of 
some  programs  that  meet  the  requirements  of  this  standard. 

UPLENENTOR-DEFINEO  LANGUAGE  SPECIFICATIONS 

The  language  elements  in  the  following  lists  depend  on  implementor  defini- 
tions to  complete  the  specificaton  of  the  syntax  or  rules  for  the  elements. 

The  elements  whose  syntax  is'  partly  implemen^oi — defined  are: 


Element 

I«plemeitor-D»fin»d  Aspect 

SOURCE-COMPUTER 

paragraph 

* 

compute  r-r\&*ne 

OBJECT-COMPUTER 

paragraph 

computer-name 

1EK0RY  SIIE  clause 

integer 

alphabet-name 

/ 

implementor-name;  whethe r imple- 
mentor-names are  provided. 

r 


[i  i 

* 
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SPF  C I AL-NAME  S paragraph 
ASSIGN  clause 
VALUE  OF  clause 

RERUN  clause 

CALL  and  CANCEL  statements 

statement 

ENTER  statement 
Margin  R 
Area  8 

Qualification 

The  elements  whose  effect  is  partly 
Element 

alphabet-name 

implementor-name  switches 

USAGE  IS  COMPUTATIONAL 
clause  * 

f 

USA&'E  IS  I NDfX  clause 
SYNCHRONIZED  clause 

ACCEPT  statement 
DISPLAY  statement 


implementor-name 
implementor-name 

i mp l e men t or - n a m e ; whether  implementor 
names  are  provided. 

implementor-name  and  the  form;  the 
implementor  provides  at  least  one 
of  seven  specified  forms. 

relationship  between  operand  and  the 
referenced  program. 

relationship  between  library-name 
text-name/  and  the  library. 

language-name 

The  locat ion. 

The  number  of  character  positions. 

The  number  of  nualifiers;  at  least 
five  must  be  sjpoorted. 

i mp l erne n t or -d e f i ne d are: 

I mpl emen t or-9 e f i ne d Aspect 


The  correspondence  oetween  native  and 
foreign  character  sets. 

Whether  setting  can  change  during 
exeeut i on. 

Representation  and  whether  automatic 
alignment  occurs. 

‘ Representation  and  whether  automatic 
alignment  occurs. 

i 

Whether  implicit  FILLER  positions  are 
generated;  their  effect  on  the  sire 
of  group  items  and  redefining  items. 

Maximum  sire  of  one  transfer  of  data 
in  Level  1 Nucleus. 

Maximum  size  of  one  transfer  of  data 
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Numeric  test 


Comparison  of  nonnumeric  items 


Arithmetic  expressions 


in  level  1 Nuc l eus  . 

Representation  of  valid  sign  in  the 
absence  of  the  SION  IS  SEPARATE 
c l ause  . 

Collating  sequence*  where  NATIVE  or 
implementor-name  collation  sequence 
;is  implicitly  or  explicitly 
specified. 

Number  of  places  carried  for  inter- 
mediate results. 


Elements  That  Pertain  to  Specific  Hardware  Components 

V .* 

The  standard  language  elements  in  the  list  that  follows  pertain  to  specific 
types  of  hardware  components.  These  language  elements  must  be  implemented 
in  an  implementation  of  American  National  Standard  CuADL  when  support  is 
claimed*  by  the  i imp l e me nt or  * for  the  specific  types  of  hardware  components  to 
which  they  pertain*  and  the  module  in  which  they  are  defined  is  included  in 
that  implementation. 


E l e m e n t 


Hardware  Component 


CODE-SET  clause 
MULTIPLE  EILE  TAPE  clause 


Device  capaol?  of  supporting  the 
specified  code. 

Reel 


CLOSE .. .REEL/UNI T statement 
CLOSE. ..NO  REWIND  statement 


Reel  or  mass  storage 
Reel  or  mass  storage 


OPEN. . . RE VE RSE 0 statement  Reel  with  the  capaoility  of  making 

records  available  in  the  reversed 
order;  mass-storage  with  the  cap- 
ability of  making  records  avail- 
• able  in  the  reversed  order. 

OPEN. ..NO  REMIND  statement  1 Reel  or  mass  storage 


OPEN. ..1-0  statement 
(Sequential  1-0  only) 

OPEN  EXTEND  statement 

REWRITE  statement 

(Sequential  1-0  only) 


• Mass  storage 

Reel  or  mass  storage 
Mass  storage 


SEND...BEE ORE/AFTER 


Devices  caoable  of  vertical  posi- 


I 
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ADVANCING  statement  tioning;  devices  capable  of  action 

based  on  mnemonic-names. 

USE.. .1-0  (Sequential  K ass  storage 

I -0  only) 


l/HIE..  .OEfORE  /Af  TER 
ADVANCING 


Devices  caoable  of  vertical  posi- 
tioning; devices  caoable  of  action 
; based  on  rnemonic-nane. 


I 
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1.5  The  Federal  COBOL  Standard 

The  C030L  compiler  validation  results  enclosed  in  this  document  reflect  the 
degree  to  which  the  suoject  COBOL  compiler  implements  the  Federal  COBOL 
Standard.  The  Federal  COBOL  Standard  is  essentially  the  same  as  the 
tterican  National  Standard  Programming  Language  COBOL*  Xi. 23-1974*  with  two 
exceptions: 

The  federal  Standard  defines  4 levels  and  the  AVSI  Stan- 
'dard  defines  only  the  minimum  CD30L  implementation  and 
the  full  standard.  Low  and  High  levels  of  the  Federal 
COBOL  Standard  (see  1.5.1)  correspond  to  the  above  two  AS' SI 
levels  (minus  the  Report  Writer  nodule).  Two  addil  iona  l 
levels*  low-intermediate  and  hiqh-intermediate  have  been 
included  in  the  Federal  Standard  oetween  the  highest  and 
lowe*  s . ? t s . These  additional  levels  accommodate 
hardware  which  cannot  support  the  full  standard*  but  which 
is  capable  of  implementing  more  than  the  minimum  standard. 

The  Report  Writer  Module  is  not  contained  in  the  Federal 
Standard  COBOL. 

The  Federal  Standard  requires  that  a compiler  contain  as  a minimum  the  ele- 
ments specified  in  at  least  one  of  the  Federal  levels.  'to  restrictions  are 
imposed  on  the  inclusion  of  selected  features  from  higher  levels  or  even  unique 
vendor  extensions.  Compatibility  amounn  various  implementations  of  a given 
level  containing  additional  features  must  be  controlled  by  management  imposed 
standards  and  restrictions. 

. *¥*<•  ♦ 

1.5.1  federal  Standard  COBOL  Levels 

a.  Federal  Standard  COBOL  specifications  are  the  language  specifications 
contained  in  American  National  Standard  Prooramming  Lanouaoe  COBOL*  X3. 23-1? 74. 
for  purposes  of  the  Federal  Standard*  the  modules  defined  in  X3. 23-1974  are 
combined  into  four  levels.  Not  all  comouters  are  large  enough  to  accommodate  a 
COBOL  compiler  containing  the  full  ANSI  Standard.  Therefore*  the  Federal 
Government  reguires  that  all  compilers  acquired  by  its  aqencies  contain  as  a 
minimum  one  of  the  four  Federal  levels*  depending  on  machine  size*  configuration 
and  user  needs.  The  knowledge  that  all  computers  will  support  at  least  one  of 
these  four  subsets  simplifies  the  task  of  developing  mac  hi ne -i ndependent  COBOL 
programs. 

b.  The  four  levels  of  Federal  Standard  COBOL  are  identified  as:  Low* 

Low -Intermediate*  High-Intermediate*  and  High.  Each  Federal  Standard  COBOL 
level  is  composed,  of  either  the  high  or  low  levels  of  the  nucleus  and  ten  of 
the  eleven  Functional  Processing  Modules  (FPMs)  defined  in  x3. 23 -1974. 

The  four  Federal  Standard  COBOL  levels  are  reflected  in  the  following  table. 

The  numbers  in  the  table  refer  to  the  level  within  the  FPM  or  nucleus  as 
designated  in  x3. 23-1974*  and  a dash  in  the  table  denotes  that  the  corres- 
ponding FPM  is  omitted. 


i 
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Low 

Level 

Low 

Inter- 

mediate 

Level 

High 

Inter- 

mediate 

Level 

H ioh 
Leve  l 

NUCLEUS 

FPK.s 

1 

1 

2 

2 

TABLE  HANDLING 

1 

1 

2 

2 

SEQUENTIAL  1-0 

1 

1 

2 

2 

^ Ei-V.'i  i 'mi  » s v. 

- 

1 

2 

2 

INDEXED  I - 0 

- 

- 

- 

2 

SORT -MERGE 

- 

- 

1 

2 

REPORT  WRITER 

- 

- 

- 

- 

SEGMENTATION 

- 

1 

1 

2 

LIBRARY 

- 

1 

1 

2 

0E3UG 

I NT  E R-PROGR  AM 

*■ 

1 

2 

2 

COMMUNI CATION 

1 

. 2 

2 

- 

COMMUNICATION 

2 

2 

1.5.2  Conformance  to  Federal  Standard  COBOL 

A compiler  implemented  in  conformance  to  Federal  Standard  COBOL  must  meet  at 
least  the  following  requirements. 

a.  The  implementat ion  must  include  all  of  the  language  elements  of  at 
least  one  of  the  levels  of  federal  Standard  C03DL. 


b.  The  implementation  must  meet  all  of  the  requirements  defined  in 
American  National  Standard  COBOL/  XS. 23-1974/  Section  1/  paragraph  1.5/  Defini- 
tion of  An  Implementation  of  American  National  Standard  C030L  uhich  is  pro- 
vided in  Section  1.4  of  this'  VSR. 

c.  The  implementation  must  provide  a facility  for  the  user  to  optionally 
specify  a Level  of  federal  Standard  COBOL  for  monitoring  his  source  program 

at  compile  time.  The  monitoring  will  Be  an  analysis  of  the  syntax  used  in  a 
source  program  against  the  syntax  included  in  the  specified  level  of  Federal 
Standard  COBOL.  Any  syntax  used  in  the  source  program  that  does  not  conform 
to  that  allowed  by  the  user  selected  level  of  Federal  Standard  COBOL  will  be 
diagnosed.  The  syntax  diagnosed  as  not  conforming  to  the  specified  level  will 
be  identified  to  the  user  through  a diagnostic  message  on  the  source  program 
listing.  The  diagnostic  message. will  contain/  at  least:  (1)  The  identification 
of  the  source  program  line  number  in  which  the  nonconforming  syntax  occurs/ 

(2)  the  identification  of,  the  level  of  federal  Standard  COBOL  that  supports 


10 


I 

I 


CCVS74-VSR160 


the  syntax  or  that  the  syntax  is  nonstandard  COBOL. 

1.6.  Use  of  the  VSR 

The  federal  COBOL  Compiler  Testinn  Service  may  make  full  and  free  public 
disclosure  of  the  Validation  Summary  Report  (VSR)  in  accordance  with  the 
"freedom  of  Information  Act"  (5  U.S.C.  » 5 5 2 ) . T n ? results  of  the  validation 
are  only  for  the  purpose  of  satisfying  United  States  Government  requirements, 
and  apply  only  to  the  computer  system,  operating  system  release,  and  compiler 
version  identified  in  the  VSR. 

The  COBOL  Compiler  Validation  System  is  used  to  determine,  insofar  as  is 
practical,  the  degree  to  which  the  suoject  compiler  conforms  to  the  C030L 
Standard.  Thus,  the  VSR  is  necessarily  discretionary  and  judgmental.  The 
United  States  Government  does  not  represent  or  warrant  that  the  statements, 
or  ar*-  rr-'  -yvret  forth  in  the  VSR  are  accurate  or  complete.  The  VSR 

is  non  meant  to  oe  used  for  the  purpose  of  publicizing  the  findings  summarized 
therein. 

1.7.  Sources  of  Additional  Information 

FIPS  f’U3  21-1  defines  the  federal  COBOL  Lanouage  Standard.  This  publication 
is  available  from  the  Office  of  A DP  Standards  Ranagement,  Rational  Bureau  of 
Standards.  Washington.  D.C..  2323A. 

The  detailed  COBOL  language  specifications  arc  given  in  the  publication 
"American  Rational  Standard  Programming  Language  COBOL  X 3 . 2 3 - 1974".  availaolr 
from  the  American  Rational  Standards  Institute.  1 A 33  Broadway,  hew  York,  sew 
York  1D018. 

An  explanation  of  the  C030L  Compiler  Validation  System  is  contained  in  the 
CCVS  User's  Guide.  This  document  explains  how  to  run  the  compiler  validation 
system.  The  User's  Guide  and  a magnetic  tape  containing  a copy  of  the  CCVS 
programs  are  available  from  the  Rational  Technical  Information  Service, 
Springfield,  Virginia,  22151.  (Ordering  information  can  be  obtained  from 
the  federal  COBOL  Compiler  Testing  Service.) 

1.8.  Requests  for  Interpretation 

Juestions  regarding  this  VSR.  or  the  CCVS  in  general  should  be  forwarded  to  the 
FCCTS.  If  any  problem  cannot  be  adequately  resolved  through  the  fCCTS,  the 
request  fur  i nt erpr e t a t i on  will  be  forwarded  to  the  federal  COBOL  Interpretation 
Committee  for  final  resolution. 

I 

A brochure  describing  the  Validation  process  including  the  procedures  for 
requesting  a validation  and  resolution  of  questions  involving  interpretation 
of  the  current  Federal  Standard  is  available  from  the  Department  of  the  Ravy, 
Federal  COBOL  Compiler  Testing  Service.  Washington,  D.C.  23376. 
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SECTION  ?.  DETAILED  EVALUATION  Of'  ERRORS. 


This  section  summarizes  the  results  of  the  compilation  and  execution  of  the 
programs  comprising  the  C 030L  Compiler  Validation  System  (CCVS).  The  version 
of  the  CCVS  used  during  this  validation  is  shown  inside  the  front  cover  of  the 
VSR. 

Section  2 is  made  up  of  a variable  number  of  subsections.  The  number  of  sub- 
sections is  dependent  on  tne  Level  of  Federal  C03DL  oeino  validated.  There  will 
be  a subsection  for  each  level  of  each  module  which  is  validated.  If  the  hinh 
level  of  a module  is  validated  then  there  wilt  be  two  subsections  for  that 
module;  one  for  the  low  level  and  one  for  the  high  level. 

A validation  of  the  low  level  of  federal  C030L  would  result  in  three  subsections 
oeinq  4)resr-i’t . Pne  f->r  N."Ae.v  level  1/  one  for  Sequential  1-0  level  1 and  one 
for  l^vel  T fable  Handling. 

Each  error  or  deviation  noted  in  this  section  makes  reference  to  a program  or 
functional  COBOL  module  contained  in  Appendix  a (Validation  Summary  Working 
Jocument).  This  reference  provides  the  documented  results  of  an  occurrence 
of  errors/deviataions  detected  during  the  running  of  the  CCVS  using  the  compiler 
within  the  environment  identified  within  this  document.  The  Validation  Summery 
Working  Document  is  presented  in  sequence  by  functional  module/  functional 
module  level  and  program  numoer  as  defined  below. 

Each  program  in  the  COBOL  Compiler  Validation  System  is  identified  by  a -- 
character  program  name.  The  name  associates  the  routine  with  the  functional 
orocessino  module  and  level  of  American  National  Standard  Programing  Language 
COBOL  tested  within  the  program. 

The  five  character  name  has  the  general  format  XYNAH.  The  first  two 
characters  are  alphabetic  and  identify  the  functional  module  tested  by 
the  program.  The  persissable  values  are: 

CM  - Communi cat i ons 
DB  - Debugging 

IC  - Inter-Program  Communications 

1 X - 1 ndex ed  I -0 

L3  - Library  „ 

NC  - Nucleus  • • 

RL  — Relat ive- 1-0  ; 

RP  - Report  Writer 

SG  - Segmentation  , 

SQ  - Sequential 
ST  - Sort  * 

TH  - Table  Handling 

The  third  character  of  the  audit  routine  name  is  either  a 1 or  2/  and 
identifies  the  level  of  the  functional  module  being  tested.  Each  module  and 
level  is  represented  by  several  programs.  The  fourth  and  f i f t h • c ha r ac t e rs  of 
the  program  name  are  sequence  numbers  for  programs  which  test  features  in  the 
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same  level  of  the  same  functional  processing  module. 

Us  an  example/  the  program  name  VC210  is  the  tenth  program  in  the  series  of 
routines  which  test  the  second  level  of  the  Nucleus  module. 


Description  of  Section  2. 

i ac h . or ror/de v i a t ion  is  noted  by  number  in  the  left  hand  margin  opposite 

the  language  element  in  question.  This  number  is  used  in  section  ? to 

categorize  errors  by  Federal  level  (See  1.5.1).  Inserted  directly  below 

the  language  element  is  a brief  description  of  the  error.  To  thr  right  of 

t.ne  lanqauge  element  is  a page  reference  to  XJ.2J-1  ? 7 4 / American  National 

Standard  Programming  Lanouage  COBOL.  The  reference  at  the  end  of  the 

desc  r»t>f  ' -f  he  error  is  to  appendix  A which  contains  the  detailed 

i n’fwm.a"v»v.i:”,'.j  Li.  ect  ed  djrinq  the  validation.  Tne  reference  is  made  up 

of  the  routine  name  followed  by  an  A or  B (A  for  compile  time  or  syntax 

errors  and  B for  execution  time  or  semantic  errors)  and  a number  which  makes  the 

error  unique  in  the  Appendix  A. 
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E * amp l c : 


2.1  Nucleus  Level  1 


2.1.9 


Operational  syiibols:  S N ° 


1 1 -21 


* The  scaling  character  *P*  is  not  permitted  in  a 

* PICTJRE  character-string. 

* (NC1D1.A.2) 


2.2  Sequential  1-0  Level  1 


2.1.9  represents  the  ninth  error  for  Nucleus  Level  1 

11-21  represents  the  page  in  X3. 23-1974  where  the  language 
element  is  def ined 

* Boxes  the  description  of  the  error/levi a t i on 

NC101.A.2  represents: 


Prograx  nan;  - NC101 

Syntax  error  - A 
second  error  - 2 
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7.1  NUCLEUS  LEVEL  1 


Language  Concepts  .................  1-75 

Characters  used  for  words  . . .-.  .......  1-76 

0/  1/  ...»  9 
A t B / ...»  I 
- (hyphen  or  ninus) 

Characters  used  for  punctuation  ........  1-65 


" quotation  nark 
( left  parenthesis 
) right  parenthesis 
. period 
space 

: equal  sign 

Characters  used  in  editing.  . . . . . . . . . . 1-58 

u ter- 

♦ plus 
- minus 

C R credit 
DB  debit 

1 t er  o s uooress 

* check  protect 
t currency  sign 
/ com  » a 

. period 
/ stroke 


Separators.  . . . . . . . . . . . . . . . . . . 1-75 

The  separators/  semicolon  and  comma/  are  not 

allowed  ..................  11-1 

Character-strings  ...............  1-76 

COBOL  words  .................  1-76 

Vot  sore  than  30  characters 

User-defined  words.  ............  1-76 

.dat  a-nar.e 

Must  begin  w'ith  an  alphabetic  character  11-1 

Must  be  unique;  may  not  be  qualified.  . 11-1 


level-number 
itnemon  i c-name 
paragraph-/iame 
program- name 
^rout ine-name 
sect  ion-name 


System-names.  ...............  1-78 

conput er -name 
1 apt ement or-name 
language -name 

Reserved  words.  .........  .....  1-79 

Key  words 
Optional  words 

figurative  constants.  ..........  1-80 

IER0 
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SPACE 

HIGH-VALUE 

LOW-VALUE 

8U0TE 

Spec ia l -charac t er  words  .........  1-80 

Literals.  ..................  1-80 


Nonnumeric  literals  have  lengths  Iron  1 
through  123  characters 

Numeric  literals  have  lengths  iron  1 through 


18  digits 

PICTURE  character-strings  . . . . . . . . . . I -82 
Common  t -en  t r i e s ...............  1-8? 

Reference  fonat.  . . . . . . . . .•  . . . . . . . 1-105 

Sequence  number  ................  1-105 

:■  ‘Aii-'/v. 1-105 

Division  header  ...............  1-105 

Section  header.  ...............  1-106 

Paragraph  header.  ..............  1-107 

Data  Division  entries  ............  1-107 

Area  3.  ....................  1-105 

Paragraphs.  ...............  . . 1-107 

Data  Division  entries  ............  1-107 

Continuation  of  lines  .............  1-106 

2.1.1  - 


* The  compiler  does  not  recognize  the  *?0R C I NG-S  T0K  A (. F 

* SECTION  header  continued  across  source  lines.  (Refer 

* to  Reference  Format  5.8.2.?  Continuation  of  Lines 

* on  page  1-136.) 

* (NC113.A.1) 


Only  nonnumeric  literals  may  be  continued  . . 11—1 


Comment  lines  .................  1-108 

Asterisk  (*)  comment  lines 
Stroke  (/)  comment,  line 

ldenti f i ca t i on  Division  .............  1-94 

The  PROGRAM-ID  paragraph.  ...........  1 1 — 3 

The  AUTHOR  paragraph.  .............  11-2 

The  INSTALLATION1  paragraph.  ..........  11-2 

The  D A T E — R I TT  E N paragraph.  . . ........  II-2 

The  SECURITY  paragraph.  . . . . . . . . . . . . II -2 

Environment  Division.  ...1..........  1-95 

The  SOURCE-COMPUTER  paragraph  11-5 

computer-name 

The  OBJECT-COMPUTER  paragraph  11-6 

comput  er-naie 
MEMORY  SIZE  clause 
PROGRAM  COLLATING  SEQUNCE  clause 
The  SOCIAL-NAMES  pargraph 11-8 


implementor-name  IS-  mnemonic-name 


I 
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implementor-name  IS  Tine  iron  i e -name  series 
ON  STATUS 
OFT  STATUS 

a l phabc t -name  clause 
CURRENCY  SIGN  clause 
0 E C I MA.-PDl NT  clause 

2.1.2  - — - 

» The  compiler  does  not  accept  th?  syntax  for 

* mnemonic-name  for  a switch  in  the  SPECIal- 

* NAMES  paragraph.  (Refer  'to  Nucleus  3 . 1.3.  A 

* on  page  11-9). 

* (NCI  33. A) 


2.1.3 


Data  Division  ..................  1-97 

Work i nq-S t or  age  on c t i on  ............  11-11 

The  data  descrivi  ion  entry.  ..........  11-12 

The  BLANC  WHEN  ZERO  clause 11-14 

The  data-name  or  FILLER  clause.  ........  11-15 

The  JUSTIFIED  clause  (may  be  abbreviated  JUST).  11-16 

Level-number.  .................  11-17 

01  through  13  (level  numbers  must  be  2 digits)  11-13 

77 11-11 

The  PICTURE  clause  (may  be  abbreviated  PIC)  . . 1I-1S 

Character-string  may  contain  30  characters.  . II-1? 

Data  characters:  AX9. ..........  11-18 

Operational  symbols:  S V P.  .......  11-21 

Fixed  insertion  characters.  . . . . . . . . . 11-21 

0 (may  be  used  only  in  edited  items) 


B (may  be  used  only  in  edited  items) 

S (currency  sign)  • 

♦ and  - 
03  and  CR 
7 

Replacement  or  floating  characters.  .....  11-21 

$ (currency  sign) 

♦ and  - 


Curp^ncy  sign  substitution.  .........  11-21 

Decfmal  point  substitution.  .........  11-21 

The  REDEFINES  clause  (may  got  be  nested).  ...  11-27 

The  SIGN  clause 11-31 


* The  compiler  does  not  oerforn  certain  storage 

* allocations  when  the  unsigned  data  items  sub- 

a ordinate  to  a group  item  containing  SIGN  IS 

* SEPARATE  clause  in  the  data  descriotion. 

* (Refer  to  Nucleus-4. 10  on  paoe  11-31.) 

* (NC120.B.1) 


ku 


...-■natual. 
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2.1.5 


The  SYNCHRONIZED  clause  (may  be  aboreviated  SYNC)  II-  3 5 


The  USAGE  clause 11-55 

COMPUTATIONAL  (may  be  aboreviated  COMP) 

DISPLAY 

The  VALUE  clause 11-36 

literal 


Procedure  Division.  ...............  1-99 

Conditional  expressions  . .’.  .........  1 1 — A l 

Simple  condition.  ..............  11-91 

Relation  condition.  ............  11-91 

Relational  operators 
[NOT  3 GREATER  THAN 
l NOT  3 LESS  THAN 
It  '.I  E3UAL  TO 


Comparison  of  numeric  operands.  .....  11-92 

Comparison  of  nonnumeric  operands  (oper- 
ands must  be  of  equal  size)  .....  11—9? 

Class  condition  ..............  11-93 

NOT  option 

Switch -status  condition  . . . . . . . ..  . . 11-99 

The  arithmetic  statements  ...........  11-51 

Arithmetic  operands  limited  to  13  digits 
Overlapping  operands.  .............  11-51 

The  ACCEPT  statement  (only  one  transfer  of  data)  11-53 
The  ADD  statement  ...............  11-55 

i dent i f i er / l i t era l series 
TO  ident  i f ier 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 


* The  compiler  limits  the  intermediate  results 

* of-  any  arithmetic  operation  to  1?  diqits/  which 

* may  cause  errors  when  the  composite  of  operands 

* in  the  ADD  statement  has  18  digits.  The  SIZE  ERROR 

* code  is  also  being  performed  even  though  no  SIZE 

* ERROR  should  occur  in  the  ADD  operation.  (Refer  to 

* Nucleus  5.5  x>n  page  11-55.) 

* (NC106.B.1) 


The  ALTER  statement  (only  one  procedure-name).  . 11-57 

The  DISPLAY  statement  (only  one  transfer  of  data)  11-59 


* 'The  compiler  has  a limit  of  sixteen  (15)  sending 

» operands  in  a DISPLAY  statement.  (Refer  to  Nucleus 

a 5.8  on  page  11-59.) 

« (NC1D9.A) 


The  DIVIDE  statement 11-61 

INTO  identifier 

/ 
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>.1.6 


BT  i dent i 1 i e r / li t e r a l 
61 VI NG  identifier 
ROUNDED  phrase 
SUE  ERROR  phrase 


The  compiler  has  a problem  with  DIVIDE  when  the 
data  items  have  a SIGN  SEPARATE  clause  ?s  part  of 
the  data  description.  (Refer  to  Nucleus  5.9  on 
page  11  -6 1 . > 

INC  11?. 5.1  and  VC  11  7.3.?) 


2.1.7 


The  ENTER  statement  ...............  t 

The  EXIT  statement  . . . . . . . . . . . . . . . II 
The  GO  TO  statement  (procedure-name  is  required)  II 
DEPENDING  ON  phrase 

*■? ‘^74 r statement  (statements  must  d?  imperative)  II 
tvbt  phrase 

The  INSPECT  statement  (only  single  character 

data  item)  .................  II 

TALLYING  phrase 
ALL 

LEADING 
CHARACTERS 
REPLACING  phrase 
ALL 

LEADING 

FIRST 

CHARACTERS 

TALLYING  and  REPLACING  phrases 
The  MOVE  statement  . . . . . . . . . . . . . . . II 
TO  identifier 
ident ifier  series 

The  MULTIPLY  statement  . . . . . . . . . . . . . 11 

BY  identifier 
GIVING  identifier 
ROUNDED  phrase 
SUE  ERROR  phrase 

The  compiler  has  a problem  with  MULTIPLY  when  the 
data  items  hjve  a SIGN  SEPARATE  clause  as  part  of 
the  data  description.  (Refer  to  Nucleus  5.16  on 
page  11-77.)  > 

(NCI  70.3.2) 


2.1.8 


The  PERFORM  statement, 
procedure-name 
THRU  phrase 
TIMES  phrase 


The  compiler  has  .a  limit  of  16  active  levels  in 
a sequence  of  nested  PERFORM  statements.  (Refer'  to 
Nucleus  5.17  on  page  II-78-) 

i 
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(NC1D?.?) 


The  STOP  statement  ...............  11-85 

literal 

RUN 

The  SUBTRACT  statement  .............  JI-89 


i den t i f i er / l i t e r a 1 series 
FRO'I  identifier 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 


The  compiler  has  a oroblem  with  SUBTRACT  when  the 
SIZE  ERROR  option  is  used.  The  SIZE  fRRCR  code  is 
executed  even  though  no  SIZE  ERROR  should  have  occurred 
. -ii'4  the  SUBTRACT  operation.  (Refer  to  Nucleus  5.20 

i v - 0 e 11-39.) 


■j. 

* 


(NC106.3.?) 
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2.2  TABLE  HANDLING  LEVEL  1 


Language  Conceots 

User-defined  words.  ...............  1-76 

index-name 

Subscripting  - 3 levels  .............  ] -39 

Indexing  - 3 levels  ...............  1-89 


Data  Division 


* The  compiler  has  a limit  of  AO? 3 characters  for 

* any  C330L  data  item  (group  itcn»  elementary  item* 

* or  table).  (Refer  to  Table  Handling  2.  on  pane  1 1 1 - 2 . ) 

* / (TH137.A  and  TH133.A) 


The  OCCURS  clause III-? 

integer  TI*!ES 

INDEXED  BY  index-name  series 

The  USAGE  IS  INDEX  clause 111-5 

Procedure  Division 

Relation  conditions  ...............  Ill —6 

Comparisons  involving  index-names  and/or 
index  data  i terns 

Overlapping  operands.  . .............  1 1 I -6 

The  SET  statement  . . . . . . . . . . . . . . . . 111-11 

index-name/identifier  series 
index-name 

2.2.2  


* The  compiler  cannot  handle  leading  zeroes  in  a 

* numeric  literal  in  the  SET  statement.  (Refer  to 

* Table  Handling  3. A on  page  III— 11 .> 

* (TH13A.A) 


UP  BY  i den t i f i e r / i nt e qe r 
DOWN  BY  i dent i f i e r /i nt ege r 
index-name  series 


I 
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2.3  SEQUENTIAL  1-0/  LEVEL  1 


Language  Concepts 

User-defined  words 
f i l e-name 
record-naif 
1-0  status  . . . . 


2.3.1 


E n w i roni en t Division 

The  flLE-CONTROL  paragraph  . . . . . . . . . . . . . . I V- A 
The  file  control  entry  ................  IV-A 

SILECT  clause 

ASSIGN  TO  i mp l omen t or -na me  clause 
0RSANI  MTI  ON  IS  SEQUENTIAL  clause 
ACCESS  NODE  IS  SEQUENTIAL  clause 
FILE  STATUS  clause 

The  I-0-C0NTR0L  paragraph.  ..............  I V - 6 

RERUN  clause 

• fhe  compiler  does  not  sunrort  the  RERUN  statement. 

* (Refer  to  Sequential  1-0  2.1.3  on  page  TV -6 . ) 

« (SQ11'. a. 2) 


SA^E  AREA  clause 
SANE  AREA  series 


Data  Division 

file  Section  ................  1V-9 

The  file  description  entry  ..............  IV-13 


The  record  description  entry  . . . . . 

The  BLOCK  CONTAINS  clause 

integer  CHARACTERS 
integer  RECORDS 

The  CODE-SET  clause.  ......... 

The  DATA  RECORDS  clause 

data-name 

dat  a-name  series 

The  LA3EL  RECORDS  clause  . 

STANDARD 

OM1JTED 

The  RrCORS  CONTAINS  clause  . 

integer-1  TO  integer-2  CHARACTERS 

The  VALUE  OF  clause.  - - - ' 

implementor-name  IS  literal 
implementor-name  IS  literal  series 


1 V-9 
I V-  1 1 


1 V-12 
IV- 17 


I V-  1 A 


I V— 1 8 


I V-1  9 


Procedure  Division 

The  CLOSE  statement  (only  a single  file-name  may  appear 

in  a CLOSE  statement).  .............  1V-2D 

REEL 

UNIT 
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2.3.? 


The  OPEM  statement,  (only  a single  file-name  may  appear 
in  an  OPEN  statement).  ............. 

INPUT 

OUTPUT 

1-0  / 

The  RIO  statement  . . . . . . . . . . . . . . . . . . 

INTO  identifier 

AT  END  phrase 

The  REWRITE  statement.  . . . . . . . . . . . . . . . . 

FRO'l  identifier 

The  USE  statement.  .................. 

EKCEpTI0N/ERR0R  PROCEDURE 
OH  file-name 
OR  INPUT 
OH  OUTPUT 
OH  1-0 

The  WRITE  statement  ................. 

FROM  identifier 

BEFORE/AFTER  integer  LIHES 


IV-24 


1 V-2S 

I V-  3 1 
1V-32 


I V-3  A 


* The  compiler  has  a series  of  oroblems  v i t h WRITE  • 

* 3EF0RE/AFTER  ADVANCING  integer  LINES.  Numeric 

* literals  cannot  have  leading  zeroes.  The  figurative 

* constant  ZERO  and  the  numeric  literal  0 cannot  be 

* used.  WRITE  .BEFORE  ADVANCING  1 LINFS  advances 

* before  the  a RITE  is  performed.  (Refer  to  Seouential 

* 1-0  A. 6 on  page  IV-3A.) 

* — (SQ1D1.A.1/  SG101.A.?,  SG101  .3.1  / and  SQ101.3.?) 


BEFORE/AFTER  PAGE 
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SECT  I OM  3.  COMPILER  STMUS 

Section  1.5  explains  the  four  levels  of/federal  Standard  COBOL.  This 
section  lists  the  discrepancies  described  in  Section  2 by  the  Tederal 
level  in  which  the  problem  occurs.  All  errors  listed  for  a lower  level 
are  also  errors  in  any  higher  level/-  even  thou  oh  they  are  listed  only  in 
the  lower  level.  The  paragraph  number  from  Section  2 is  jsed  to  rcferenc 
the  drrors  in  each  Federal  level. 

J.1  Low  Level 

3.1.1  Nucleus  Level  1 

2.1.1  Continuation  of  WO  RUNG-STORAGE  SECTION  header. 

2.1.2  Syntax  for  switch  mnemonic-name  in  SPECIAL- names  paragraph. 

2.1.3  Storage  allocation  for  SIGN  IS  SEPARATE  clause. 

2.1. A ADD  SIZE  ERROR  problem/  also  a compiler  limit  of  18  digits 
for  any  arithmetic  intermediate  result. 

2.1.5  Limit  of  16  sending  operands  in  a DISMAY  statement. 

2.1.6  DIVIDE  problem  when  SIGN  IS  SEPARATE. 

2.1.7  MULTIPLY  problem  when  SIGN  IS  SEPARATE. 

2.1.8  Limit  of  16  active  levels  in  a nested  PERFORM  sequence. 

2.1.9  SU31RACT  problem  when  SIZE  ERROR  option  is  used. 

3.1.2  Table  Hand l i no  Le ve  l 1 

2.2.1  Limit  of  4095  characters  for  any  COBOL  data  item. 

2.2.2  Leading  zeroes  in  numeric  literals  in  the  SET  statement. 

3.1.3  Sequential  1-0  Level  1 

2.3.1  The  RERUN  statement  is  not  implemented. 

2.3.2  Problems  with  WRITE  EtEFORE/AETER  ADVANCING  integer  LINES. 

3.2  Lou  Intermediate  Level 

Validation  at  this  level  not  attempted. 

3.3  High-Intermediate  Level  ; 

Validation  at  this  level  not  attempted. 

» 

3.4  High  Level 

Validation  at  this  level  not  attempted. 


IT 
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SECTION  A . 


SOFTWARE  ENVIRONMENT. 


The  compiler  referenced  in  this  document  was  validated  us  inn  the  software 
environment  described  in  this  section.  When  using  a modification  of  the 
described  environment#  the  compiler  may  or  may  not  cootioj?  to  conform  to  the 
Standard.  It  should  be  noted  that  durino  the  validation  process*  an  attempt 
is  made  to  validate  as  many  different  options  os  possible. 

The  use  of  compiler  options*  implementor-names  in  the  Environment  Division 
and  any  form  of  optimization  which  is  not  described  in  this  report  could  cause 
the  compiler  to  produce  a propram  that  docs  not  perform  accordion  to  the 
specifications  of  Standard  C33DL.  Duly  the  environment  described  in  this 
document  has  been  jsed  with  this  compiler  to  satisfy  th?  requirements  of  F l 0 c 
3JB  21  and  F PY.  R 1 01 -32 .1 3 J5 . 1 a . 1'ny  deviations  which  must  be  corrected  as 
oer  the  referenced  FPMR  are  descrioed  in  Sections  2 and  3 of  this  report.) 


1.  Options  or  parameters  used  on  the 
The  following  ootions/parameters  were 


processor  call  statement  for  the  compiler 
jsed  d-irioo  the  validation. 


Options  specified: 

The  largest  possible 
SWITCH  1 was  set  ON. 


task  size  was  requested  for  all  executions. 


2.  Environment  Division  i mp l eme n t or  - name s . 


Printer  destined  files 


"SYrname. extension"  . 

Tape  files 

"MTn:naime.  extension”. 

6 

Sequential  Mass -s t or  age  files 

"SY:na»e. extension”. 

Random  Access  files 
N/A 

Sort  files  (SD) 
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N/A 

Switch  names 

SWITCH  1 
SWITCH  2 

Source  Computer  names 


PDP-11. 


Object  Computer  names 
PDP-11 


5.  Optimization.  The  compiler  may  or  may  not  have  optimization  features. 

If  there  was  an  optimization  feature  available*  it  was  used  during  the 
validation  process  (during  a separate  execution  of  the  Compiler  Validation 
System)  to  determine  if  its  use  causes  the  compiler  to  produce  a program  which 
does  not  give  the  expected  results.  If  the  optimization  is  invoked  through 
the  compiler  cal  statement  then  it  is  mentioned  in  paraoraoh  1 above.  If 
it  is  invoked  through  the  introduction  of  syntax  in  other  than  the  Data 
sod  Procedure  Divisions  of  the  source  prooram  it  is  shown  below.  Optimization 
which  would  require  modification  to  the  Data  and  Procedure  Divisions  is  not 
considered  in  this  report  in  that  it  is  beyond  the  scope  of  the  use  of 
standard  COBOL  and  the  validation  process. 

N/ A 


4 . Comp  i l er  . 


PDP-11  CD30L  Compiler  Version  2.0 


S.  Operating  system. 


RSTS/-E 


/ 


/ 
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APPENDIX  A / 


VALIDATION  SUGARY  WORKING  DOCUMENT 


A-1  This  appendix  is  a working  pooer  produced  during  the  validation 

and  documents  the  results  of  the  compilation  and  execution  of  each  of  the 
programs  comprising  the  CCV5.  The  results  contained  herein  are  based  on 
the  use  of  the  compiler  within  the  Validation.  Environment  identified  in 
this  appendix.  This  appendix  (Validation  Summary  Vorkino  Document)  is  not 
part  of  the  official  Validation  Summary  Report  (VSR)  and  is  npt  intended 
IP  reflect  in  any  way  the  compiler's  usefulness  or  degree  of  conformance 
to  the  language  specifications. 


The  reader  of  this  appendix  should  keep  in  mind  that  the  same  pro- 
blem area  may  appear  in  more  than  one  procram/  but  is  considered  only  as  one 
single  discrepancy  and  as  such  is  reflected  only  once  in  the  tody  of  the 
VSR.  (The  VSR  will  in  turn  only  reference  the  first  occurrence  of  the 
problem  in  the  appendix.) 


This  appendix  is  divided  into  two  parts.  The  first  oart  describes 
the  Validation  Environment.  The  second  part  of  the  document  is  dividen  into 
categories  of  information":  compilation  and  execution  results. 


The  reference  document  for  C09  0L  is  FIPS  P(J3  21-1  (X3.23-1R7A). 
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I 

VALIDATION  ENVIRONMENT  i 

COMPILER  IDENTIFICATION:  PDP-11  COSOL  Compiler  Version  2.0 

COMPUTER  SYSTEM;  PDP-11/7D 

0PE  R A T 1 NG  SYSTEM:  RSTS/E 

MJCLEUS  MODULE  LEVEL  1 
NC101 

A . Comp  i l at  ion 
No  errors. 

B . Execution 
No  errors. 

M C 1 0? 

A.  Compil at  ion 
No  errors. 

3.  Execution 

The  execution  of  NC1D2  stopped  in  PFM-TEST-1'.  with  the  message: 

TOO 3012  PR0C.-12/22D  TOO  MANY  ACTIVE  PERFORMS. 

PE Rf ORM-T E S T -1  A is  a test  of  the  nested  PERFOR"  statement  with  20 
levels.  The  compiler  can  handle  a maximum  of  16  levels  in  a nested 
PERFORM.  PFM-TEST-1 4 -as  deleted. 

NCI  03  ‘ ^ ; 

A.  Compilation  • 

The  compiler  does  not  accept  the  syntax  for  mnemonic-name  for  a switch 
in  the  SPECIAL-NAMES  paragraph. 

SPECIAL-NAMES.  i mol ement or-name  IS  mnemonic-name*  ON  STATUS  IS 
condition-name-1*  OFF  STATUS  IS  condition-name-2. 

After  the  mnemonic-name  reference  was  deleted*  the  switch  and  co-idition- 
' *' 
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name  references  functioned  according  to  the  Standard. 

B.  E xecut ion 
No  errors. 

MC1D4  thru  NC105 

A . Coup i l at i on  . 

No  errors. 

B . Execution 
No  errors. 

NC106 

A.  Compilation 

A warning  message  that  POSSIBLE  HIGH  ORDER  RECEIVING  FIELD  TRUNCATION 
might  occur  was  given  by  the  comoiler  for  ADD-TEST-41. 

B.  Execution 


1.  ADD-TEST-3?  and  ADD-TEST-41  failed.  These  are  ADD  data-name 

series  tests  with  operands  like  =IC  59(18)  and  S V9(1 « ) . The  composite 
operand  does  not  exceed  IS  dinits.  In  ADD-TEST-39  the  SITE 
ERROR  did  not  occur;  however/  the  result  of  the  ADD  was 
-9999999 9 9 9 999 99 99 9 instead  of  the  expected  value  1.  In  ADD- 
TEST-41  the  SITE  ERROR  did  not  occur  yet  the  result  was  -.9 
instead  of  the  expected  value  of  .1 

2.  SUB-TE STS-43/  44/  45/  and  46  failed.  These  are  tests  of  SUBTRACT 
data-name  series  GIVING  result  ON  SITE  ERROR.  Tests  44  and  46 
show  that  a SITE  ERROR  was  produced  during  the  subtract  even  though 
no  SITE  ERROR  was  expected.  Like  ADD-TESTS-39  and  41  above/  the 
operands  include  those  with  PICTURES  like  S9C13)  and  SV9(13).  In 
SUB-TEST-43  the  resuU  was  -999999999999999999  instead  of  the  expected 
value  of  3.  In  SU3-TEST-45  the  result  was  -.9  instead  of  the  value  .3 

The  .compiler  has  a limit  of  13  digits  for  any  intermediate  result. 

. * ♦ 

NC107 

A.  Compilation 
No  errors. 

B . Execution 


29 


CCVS74-VSR160 


Vo  errors. 


vcioa 

A.  Compilation 

The  mnemonic  switch  name  had  to  be  deleted.  See  M C 1 0 5 - 

B . Execution 
No  errors. 

VI C 1 09 

A . Com p i l at  ion 

"VY"ST*- t L ST  S~1  2 and  15  had  to  be  deleted.  These  are  DISPLAY  tests 
with  21  operands.  The  compiler  has  a limit  on  the  number  of 
operands  that  are  allowed  in  a DISPLAT  statement. 

B.  Execution 
No  errors. 

NC110  thru  NC  1 1 2 

A . Comp i l a t i on 
No  errors. 

B . Execut ion 
No  errors. 

NC113 

A . Compil at  ion 

Lines  003303  thru  303200  had  to  be  modified.  , These  lines  contain 
the  WDRC I M3-ST 3RA3E  SEXTI0N  header  which  is  split  across  lines 
using  the  continuation  character  hyphen  in  column  7. 

* * 

003000  U0RKINS- 

003100-  STORAGE  < 

003200  SECTION. 

B.  Execution 
No  errors. 

NC1U  thru  NC116 

/' 
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A . Comp i l at i on 
No  errors. 

B.  Execution 
No  errors. 


VC  1 1 7 

A . Compilation 
No  errors. 

3.  Cxecot inn 

1.  DIV-TEST-7  is  as  follows: 

DIVIDE  3.397  INTO  DIV7  ROUNDED  ON  SI7C  ERROR  

The  SIZE  ERROR  occured  as  expected;  howevpr.  the  resultant 
identifier  was  changed  from  its  initial  value  of  9.6  to  a final 
value  of  99.  DIV-TEST-S  failed  because  is  is  a check  on  whether 
the  resultant  identifier  was  channed  after  a SIZE  E R R 0 o oturr».1. 

The  resultant  identifier  was  contained  in  a group  item  which  was 
described  as  'TRAILING  SEPARATE*  for  the  signs  within  the  data 
items  subordinate  to  the  group. 

2.  DIV-TEST-19  failed.  The  test  is  as  follows: 

DIVIDE  A99-DS-32V33  INTO  L'RK- D S- LS- 1 S V33  . 

77  ^99-D$-023V03  PIC  S99  VALUE  99. 

77  WRK-0S-LS-18V3O  PIC  SVCIb)  SIGN  IS  LEADING  SEPARATE  CHARACTER 
VALUE  99. 

A result  of  0 was  produced  instead  of  the  expected  value  of  1. 


NC118  - , 

A.  Compilation^.  ; 

No  errors.  • , 

B.  Execution 

ADD-TESTS-39  and  AT  failed.  These  are  the  same  tests  as  in  NC 1 35. 


VC119 

A.  Compilation 
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No  errors . 

B. Execution 

/ 

SU3-TESTS-44  and  46  failed.  The  SIZE  ERROR  code  was  executed  even 
though  no  SIZE  ERROR  shojld  have  occurred  f or  the  SJRIRACT  operation. 

NC120  . 

A . Comp  i l at  i on 

No  errors. 

B.  Execut ion 

1.  NPY-TEST-?  failed.  The  group  sign  is  LEADING  SE°aratE.  This  sane 
test  passed  in  N C 1 0 1 with  the  sign  clause  not  specified  for  the 
data  i terns  . 

2.  NPY-TEST-5  failed.  The  compiler  prodjced  the  warning  messages: 

I 00433  0571  POSSIBLE  HIGH  ORDER  RECEIVING  EIELD  TRUNCATION 
1 00433  0372  POSSIBLE  LOR  ORDER  RECEIVING  FIELD  TRUNCATION. 

The  SIZE  ERROR  should  have  Been  executed  during  the  multiplication 
in  P.PY-TEST-5.  NPf-TtST-6  also  failed.  The  receiving  field  should 
not  have  been  changed  from  the  initial  value  of  4.  The  resultant 
field  was  changed  to  10. 

The  compiler  stored  the  data  10  in  the  data  item  mUL  T 5 which  is  PIC  9 
and  also  stored  the  data  100  in  MULT6  which  has  a PIC  99.  The  01  level 
group  data  name  which  includes  *1ULT5  and  *IULT6  has  LEADING  SEPARATE 
for  the  sign;  however  neither  '‘ULT5  nor  SULT6  have  the  sign  S as  part  of 
the  PICTURE  c h a r ac t e r -s t r i ng  . 

This  proolem  caused  1° Y -T f ST S -9 / 10/  11/  and  12  to  fail  by  not 
performing  the  SIZE  ERROR  and  changing  the  resultant  field  from  the 
initial  values. 


TABLE  HANDLING  NOSTULE  LEVEL  1 
T Hi  01  thru  T H 1 0 3 

A . Comp i l at  ion 
No  errors. 

B . Execution 


No  errors 


* 
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THICK 

A . C omp i l at i on 

/ 

The  coup  tier  can  not  handle  leading  zeroes  on  a numeric  literal;  e . g . 

034700  SET  IDX-1  TO  000000000000000004. 

All  occurrences  had  the  leading  zeroes  removed. 

B.  Execut ion 
No  errors. 


T Hi  00 

A . 

B. 

T Hi  07 
A. 


B. 

T Hi  08 
A. 

a. 


thru  T HI 06 
Comp i l at i on 

No  errors.  • 

Execution 
No  errors. 

Compi lat ion 

The  compiler  issued  the  followino  fatal  error  message  because  the  njmter 
of  characters  in  the  01  group  level  exceeded  4095: 

f 00115  0576  0ATAITEN  LENGTH  EXCEEDS  4095  CHARACTERS. 

An  option  was  set  to  ignore  the  fatal  error  and  no  other  changes  had  to 
be  made  to  successfully  run  the  routine. 

Execution 

No  errors. 


Compi l at  ion 

The  fatal  message  that  a data  item  exceeds  4095  characters  was  produced 
by  the  compiler  { see  TH107  }. 

Execution 

No  errors. 
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T Hi  09  thru  TH111 
A . Compi l at  ion 
No  errors  . 
B.  Execut  ion 
• No  errors . 


SEQUENTIAL  I -0  10DULE  LEVEL  1 
SQ101 

A.  Compilation 

1.  The  compiler  issues  a warning  messaoe  and  does  not  accept  17 
leading  reroes  on  a numeric  literal  such  as  000330033000000001. 

W 00493  0343  INTEGER  VALUE  TOD  315.  LARGEST  VALUE  USED. 

W 0343?  0343  .ADVANCING.  INTEGER  TOO  HI  & . TRUNCATED  TO  6 3. 

All  such  leading  zeroes  occurred  in  the  <V  R I T E ADVANCING  numeric  literal 
LINES  statements.  The  leading  zeroes  were  omitted. 

?.  The  compiler  does  not  accept  the  figurative  constant  2ER0  in  the  WRITE 
ADVANCING  statement. 

3.  The  compiler  also  does  not  handle  a njmeric  literal  with  the  valje  of 
zero  in  the  WRITE  ADVANCING  3 LINES  tests  for  overprinting.  All  such 
occurrences  were  changed  to  ADVANCING  1 LINES.  This  caused  overprint 
tests  to  fail. 

B.  Execut  ion 

1 . The  following  tests  failed  because  the  comoiler  could  not  WRITE  3EF0RF 
( or  AFTER  ) ADVANCING  0 LINES. 

lfRT-TEST-778 

WRT-TEST-15/16 

I 

2.  The  following  tests  failed  because  the  compiler  does  not  correctly 
handle  a WRITE  BEFORE  ADVANCING  integer  LINES  statement. 

WRT-TEST-01  thru  06,  WRT-TEST-09  thru  12,  WRT-TEST-15 
WRT-TEST-1 7 thru  13,  WRT-TEST-21  thru  22,  WRT-TEST-27  thru  28 
VRT-TEST-31  thru  32. 


SOI 02  thru  SQ112 
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A . Comp  i l at i on 
No  errors. 

/ 

9.  Execution 
No  errors. 

S 2 1 1 3 ; 

A . C omp i l a t i on 

1.  Syntax  for  switch  nine  non  i c -na  me  (see  N.C1D3). 

?.  The  RERUN  statement  is  not  implemented  for  this  compiler. 

The  entire  I - D C 3 N T R 3 1 paragraph  with  the  RERUN  statement  was 
deleted. 

B.  Execut ion 
No  errors. 

S 3 1 1 4 thru  52117 

A. Compilation 
No  errors. 

B.  Execution 
No  errors. 
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